home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / SelectParts.AmiCAD < prev    next >
Text File  |  2000-04-14  |  2KB  |  70 lines
  1. /* Sélection des composants du type sélectionné ou spécifié
  2.    © R.Florac, Chez Corbin, 19 mars 1998, v1.00
  3.    Version 1.01, 20 avril 1998 (ajout affichage type d'élément)
  4.    Version 1.02, 27 avril 1998 (ajout rectangles)
  5.    Version 1.03, 1er juin 1998 (signalisation jokers)
  6.    Version 1.04, 14 avril 2000 (adaptation version 2.05)
  7.    $VER: SelectParts.AmiCAD 1.04 (© R.Florac, 14 avril 2000) */
  8.  
  9. options results     /* indispensable pour récupérer le résultat des macros */
  10.  
  11. signal on error     /* pour l'interception des erreurs */
  12. signal on syntax
  13.  
  14. 'FIRSTSEL'; objet = result
  15. if objet = 0 then do
  16.     'COMPOSANT=ASKTEXT("Quel est le nom du"+CHR(10)+"composant recherché ?"+CHR(10)+"Vous pouvez utiliser"+CHR(10)+"les jokers pour étendre"+CHR(10)+"la recherche (Ex: Diod#?)","")'
  17.     part=result
  18.     if part="" then exit
  19. end
  20. else do
  21.     'COMPOSANT=PARTNAME('objet')'
  22.     part=result
  23.     if part="" then do
  24.     'TYPE('objet')'; type=result
  25.     'SECURITY(OBJECTS+10):FOR(I=1:N=0,I<=OBJECTS,IF(TYPE(I)=='type',MARK(I):N=N+1,0),I=I+1)'
  26.     'N'; n=result
  27.     affichage(n,type)
  28.     exit
  29.     end
  30. end
  31. 'SECURITY(OBJECTS+10):N=0:I=0:WHILE(I=IF(I+1<=OBJECTS,FINDPART(I+1,COMPOSANT),0),MARK(I):N=N+1)'
  32. 'N'; n=result
  33. affichage(n,1)
  34.  
  35. exit
  36.  
  37. affichage: procedure expose part
  38.     parse arg nombre, type
  39.     select
  40.     when type = 1 then element = part
  41.     when type = 2 then element = "fil de liaison"
  42.     when type = 3 then element = "arc de cercle"
  43.     when type = 4 then element = "texte"
  44.     when type = 5 then element = "référence de composant"
  45.     when type = 6 then element = "valeur de composant"
  46.     when type = 7 then element = "connexion"
  47.     when type = 8 then element = "fil en pointillé"
  48.     when type = 9 then element = "bus"
  49.     when type = 10 then element = "ellipse"
  50.     when type = 11 then element = "connecteur d'entrée"
  51.     when type = 12 then element = "connecteur de sortie"
  52.     when type = 15 then element = "trait double"
  53.     when type = 21 then element = "ligne personnalisée"
  54.     when type = 22 then element = "rectangle"
  55.     otherwise element = "élément"
  56.     end
  57.     'MESSAGE("Type d''élément sélectionné:"+CHR(10)+"'element'"+CHR(10)+"Quantité trouvée: 'nombre'")'
  58.     exit
  59. end
  60.  
  61. /* Traitement des erreurs, interruption du programme */
  62. syntax:
  63. erreur=RC
  64. 'MESSAGE("Script SelectParts"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  65. exit
  66.  
  67. error:
  68. 'MESSAGE("Script SelectParts"+CHR(10)+"Erreur en ligne 'SIGL'")'
  69. exit
  70.